home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / Developer Essentials Jul 90 / DTS Sample Code / Macintosh Sample Code / Monthly Releases (Compressed) / MacDTS.Sample.Code.89.06.sit / SC.013.OOPTESample / UTEDocument.p / UTEDocument.p
Encoding:
Text File  |  1989-04-02  |  2.9 KB  |  96 lines  |  [TEXT/MPS ]
  1. {---------------------------------------------------------------------
  2. #
  3. #    Apple Macintosh Developer Technical Support
  4. #
  5. #    MultiFinder-Aware Simple TextEdit Sample Application
  6. #
  7. #    OOPTESample
  8. #
  9. #    UTEDocument.p    -    Pascal Source
  10. #
  11. #    Copyright © 1988, 1989 Apple Computer, Inc.
  12. #    All rights reserved.
  13. #
  14. #    Version:        
  15. #                    1.00                    04/89
  16. #
  17. #    Components:     
  18. #                    BuildOOPTESample        April 1, 1989
  19. #                    MOOPTESample.p            April 1, 1989
  20. #                    OOPTESample.make        April 1, 1989
  21. #                    TECommon.h                April 1, 1989
  22. #                    TESampleGlue.a            April 1, 1989
  23. #                    TESample.r                April 1, 1989
  24. #                    UApplication.p            April 1, 1989
  25. #                    UApplication.inc1.p        April 1, 1989
  26. #                    UDocument.p                April 1, 1989
  27. #                    UDocument.inc1.p        April 1, 1989
  28. #                    UTEDocument.p            April 1, 1989
  29. #                    UTEDocument.inc1.p        April 1, 1989
  30. #                    UTESample.p                April 1, 1989
  31. #                    UTESample.inc1.p        April 1, 1989
  32. #
  33. ---------------------------------------------------------------------}
  34.  
  35. UNIT UTEDocument;
  36.  
  37. INTERFACE
  38.  
  39. USES
  40.     Types, QuickDraw, Controls, Events, Windows, TextEdit, Dialogs,
  41.     Desk, ToolUtils, OSUtils, Scrap, Memory,
  42.     ObjIntf, UDocument, UApplication;
  43.  
  44. PROCEDURE PascalClikLoop;
  45. FUNCTION GetOldClikLoop:ProcPtr;
  46.  
  47. TYPE
  48.     TTEDocument = OBJECT(TDocument)
  49.         fDocTE:            TEHandle;        { Our text, who art in heaven... }
  50.         fDocVScroll:    ControlHandle;    { Vertical Scrollbar }
  51.         fDocHScroll:    ControlHandle;    { Horizontal Scrollbar }
  52.         fDocClik:        ProcPtr;        { Our click loop }
  53.  
  54.         PROCEDURE TTEDocument.ITEDocument(resID:integer);
  55.         PROCEDURE TTEDocument.Free; OVERRIDE;
  56.  
  57.         { methods from TDocument we override }
  58.         PROCEDURE TTEDocument.DoZoom(partCode:integer); OVERRIDE;
  59.         PROCEDURE TTEDocument.DoGrow(theEvent:EventRecord); OVERRIDE;
  60.         PROCEDURE TTEDocument.DoContent(theEvent:EventRecord); OVERRIDE;
  61.         PROCEDURE TTEDocument.DoKeyDown(theEvent:EventRecord); OVERRIDE;
  62.         PROCEDURE TTEDocument.DoActivate(becomingActive:Boolean); OVERRIDE;
  63.         PROCEDURE TTEDocument.DoIdle; OVERRIDE;
  64.         PROCEDURE TTEDocument.DoUpdate; OVERRIDE;
  65.         PROCEDURE TTEDocument.DoCut; OVERRIDE;
  66.         PROCEDURE TTEDocument.DoCopy; OVERRIDE;
  67.         PROCEDURE TTEDocument.DoPaste; OVERRIDE;
  68.         PROCEDURE TTEDocument.DoClear; OVERRIDE;
  69.         FUNCTION TTEDocument.HaveSelection:Boolean; OVERRIDE;
  70.         FUNCTION TTEDocument.CalcIdle:Longint; OVERRIDE;
  71.  
  72.         { new public methods }
  73.         PROCEDURE TTEDocument.AdjustScrollValues(mustRedraw:Boolean);
  74.         FUNCTION TTEDocument.GetClikLoop:ProcPtr;
  75.         FUNCTION TTEDocument.GetTEHandle:TEHandle;
  76.         PROCEDURE TTEDocument.GetVisTERgn(rgn:RgnHandle);
  77.  
  78.         { methods not intended for use outside of this class }
  79.         PROCEDURE TTEDocument.GetTERect(VAR teRect:Rect);
  80.         PROCEDURE TTEDocument.AdjustTE;
  81.         PROCEDURE TTEDocument.DrawWindow;
  82.         PROCEDURE TTEDocument.AdjustViewRect;
  83.         PROCEDURE TTEDocument.ResizeWindow;
  84.         PROCEDURE TTEDocument.AdjustHV(isVert, mustRedraw:Boolean);
  85.         PROCEDURE TTEDocument.AdjustScrollSizes;
  86.         PROCEDURE TTEDocument.AdjustScrollbars(needsResize:Boolean);
  87.     END;
  88.  
  89. VAR
  90.     gApplication: TApplication;
  91.  
  92. IMPLEMENTATION
  93.  
  94. {$I UTEDocument.inc1.p}
  95.  
  96. END.